home *** CD-ROM | disk | FTP | other *** search
/ PC PowerPlay 46 / CDPowerplay46Disc2.iso / utils / xqxset55 / _SETUP.2 / Group3 / XQ Modem Options.xpl < prev    next >
Encoding:
XSetup plugin  |  1999-09-15  |  1.3 KB  |  52 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="1"
  3. "COUNT"="4"
  4. "UIPATH"="Hardware\Modem"
  5. "NAME"="Init Commands"
  6. "VERSION"="1.22"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Command 1"
  9. "TEXT 2"="Command 2"
  10. "TEXT 3"="Command 3"
  11. "TEXT 4"="Command 4"
  12. "DESCRIPTION 1"="Here you can change the commands that are sent to your modem before dialing easily."
  13. "DESCRIPTION 2"="Please include <cr> at the end of the command string. This will signal the init command to the modem as the last instruction on the line. Your modem might get confused if you don't include the <cr>"
  14. "AUTHOR"="Xteq Systems"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"="For more information, go to http://www.xteq.com"
  17. "COMMENT 2"="Thanks to Anthony Perez for the <cr> tip"
  18.  
  19.  
  20. Sub Plugin_Initialize 
  21.  if RegPathExists("HKLM\System\CurrentControlSet\Services\Class\Modem\0000\Init") then
  22.  
  23.   for i=1 to 4
  24.    s=RegReadValue("HKLM\System\CurrentControlSet\Services\Class\Modem\0000\Init\" & i) 
  25.    SetUIElement i,s
  26.   next 
  27.  
  28.  else
  29.   Disable
  30.  end if
  31. End Sub
  32.  
  33.  
  34. Sub Plugin_CheckData(ElementIndex)
  35. End Sub
  36.  
  37.  
  38.  
  39. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  40.  for i=1 to 4
  41.   s=GetUIElement(i)
  42.   Call RegWriteValue("HKLM\System\CurrentControlSet\Services\Class\Modem\0000\Init\" & i,s,1) 
  43.  next 
  44. End Sub
  45.  
  46.  
  47. Sub Plugin_Terminate 
  48. End Sub
  49.  
  50.  
  51.  
  52.